home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / message / subcls / about.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-05-30  |  1.6 KB  |  50 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "About..."
  5.    ClientHeight    =   1815
  6.    ClientLeft      =   4095
  7.    ClientTop       =   4995
  8.    ClientWidth     =   4215
  9.    Height          =   2220
  10.    Left            =   4035
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1815
  15.    ScaleWidth      =   4215
  16.    Top             =   4650
  17.    Width           =   4335
  18.    Begin CommandButton cmdOK 
  19.       Cancel          =   -1  'True
  20.       Caption         =   "OK"
  21.       Default         =   -1  'True
  22.       Height          =   495
  23.       Left            =   1440
  24.       TabIndex        =   1
  25.       Top             =   1200
  26.       Width           =   1335
  27.    End
  28.    Begin Label Label1 
  29.       Caption         =   "This demo shows how to use a subclassing control to intercept the WM_SYSCOMMAND message to detect when the user selects a command that we have added to the system menu."
  30.       FontBold        =   0   'False
  31.       FontItalic      =   0   'False
  32.       FontName        =   "MS Sans Serif"
  33.       FontSize        =   8.25
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       Height          =   975
  37.       Left            =   120
  38.       TabIndex        =   0
  39.       Top             =   120
  40.       Width           =   3975
  41.    End
  42. Option Explicit
  43. Sub cmdOK_Click ()
  44.     Unload Me
  45. End Sub
  46. Sub Form_Load ()
  47.     ' Center form
  48.     Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
  49. End Sub
  50.